1         subroutine input()  subroutine
17         integer, allocatable :: nsons(:)
19         character*8  date
20         character*80 card
326 992     call error ('input   ','opening ', imat)  argument
327 993     call error ('input   ','opening ', iin)  argument
328 996     call error ('input   ','opening ', iecho)  argument
329 999     call error ('input   ','end file', iin)  argument
331 1000    format(a69)
332 1100    format(a80,//,
359      &  ' input echo parameter  . . . . . . . . . . . (necho )=',i10)  argument
360 1300    format(a80,//,
376 1400    format(a80,//,
380 1500    format(i6,i10,i9,i8,i11,2x,e15.5)
381 1600    format(a80,//,
385 1700    format(i6,i8,i12,e13.4,1p,i8,1p,e13.4,0p,2f10.4)
386 1800    format(a80,//,
399 1900    format(//,