| 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 |
