Searched refs:stepseq (Results 1 – 11 of 11) sorted by relevance
258 if(stepseq(i).eq.0) niter(itseq)=niter(itseq)+1421 if(stepseq(istepc).eq.10) iLastRANS=istepc428 icode=stepseq(istepc)
556 int stepseq[100]; member
30 integer seqsize, stepseq51 common /sequence/ seqsize, stepseq(100)
557 int stepseq[100]; member
30 integer seqsize, stepseq52 common /sequence/ seqsize, stepseq(100)
635 int stepseq[100]; member
910 sequence.stepseq[i] = ivec[i]; in input_fform()
265 if(stepseq(i).eq.0) nitr=nitr+1375 icode=stepseq(istepc)