Searched defs:prochain (Results 1 – 1 of 1) sorted by last modified time
| /dports/science/tinker/tinker/source/ |
| H A D | prtprm.f | 346 if (ksb(1) .ne. blank12) then
353 if (ksb(i) .eq. blank12) goto 480
354 k1 = number(ksb(i)(1:4))
355 k2 = number(ksb(i)(5:8))
356 k3 = number(ksb(i)(9:12))
357 write (itxt,470) i,k1,k2,k3,stbn(1,i),stbn(2,i)
358 470 format (3x,i5,5x,i4,'-',i4,'-',i4,8x,2f12.3)
360 480 continue
361 end if
363 c Urey-Bradley parameters
[all …]
|