162 |
|
return |
163 |
|
endif |
164 |
|
|
165 |
< |
allocate(pot_row(POT_ARRAY_SIZE,nAtomsInRow),stat=alloc_stat) |
165 |
> |
allocate(pot_row(LR_POT_TYPES,nAtomsInRow),stat=alloc_stat) |
166 |
|
if (alloc_stat /= 0 ) then |
167 |
|
thisStat = -1 |
168 |
|
return |
169 |
|
endif |
170 |
|
|
171 |
< |
allocate(pot_Col(POT_ARRAY_SIZE,nAtomsInCol),stat=alloc_stat) |
171 |
> |
allocate(pot_Col(LR_POT_TYPES,nAtomsInCol),stat=alloc_stat) |
172 |
|
if (alloc_stat /= 0 ) then |
173 |
|
thisStat = -1 |
174 |
|
return |
175 |
|
endif |
176 |
|
|
177 |
< |
allocate(pot_Temp(POT_ARRAY_SIZE,nlocal),stat=alloc_stat) |
177 |
> |
allocate(pot_Temp(LR_POT_TYPES,nlocal),stat=alloc_stat) |
178 |
|
if (alloc_stat /= 0 ) then |
179 |
|
thisStat = -1 |
180 |
|
return |