Searched refs:sflies (Results 1 – 1 of 1) sorted by relevance
| /dports/science/xtb/xtb-6.4.1/src/ |
| H A D | symtranslib.f90 | 61 character sflies*(*),csf*1,cla*1 local
78 call grpsmb(sflies,csf,cla,nn,nprisy)
187 subroutine grpsmb(sflies,csf,cla,nn,nprisy) argument
190 character csf,cla,zn(0:9),sflies*4 local
195 csf=sflies(1:1)
197 if (sflies(2:2).eq.zn(i)) nn=i
200 cla=sflies(2:2)
215 if (sflies(3:3).eq.zn(i)) np=i
219 cla=sflies(4:4)
224 cla=sflies(3:3)
|