H A D | sethis.f | 2 subroutine sethis(ie,ix,nie,nen,nen1, argument 35 integer ie(nie,*),ix(nen1,*) 47 if(ie(nie-1,n).gt.0) then 54 write(*,2001) n,ie(nie-2,n),ie(nie-1,n),ie(nie,n), 57 write(iow,2001) n,ie(nie-2,n),ie(nie-1,n),ie(nie,n), 71 if(ie(nie-2,i).eq.n) then 72 ie(nie-3,i) = nh0 73 ie(nie-4,i) = nhf 78 nhmax = max(nhmax, ie(nie,n)) 93 if(ie(nie-2,i).eq.ma) nhf = nhf + ie(nie,ma) [all …]
|