Lines Matching defs:prochain

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
369   500    format (//,15x,'Urey-Bradley Parameters',
370      &           ///,18x,'Classes',19x,'KB',6x,'Distance',/)