... CONTINUE C * solution was found by the base chord method 0140 IERR=0 0141 101 CONTINUE C * performing inverse transformation to the old variables 0142 CALL PTIMRK(Z,U(NS1),U(NS2),U(NAK),N,M, *Z,U(NG)) 0143 RETURN 0144 END 0001 SUBROUTINE PTIMRC(C,B,N,RO ...
... 101 CONTINUE C * performing inverse transformation to the old variables 0142 CALL ... M,N+1)+3 C * C * ICONT=0 - first call C * ICONT=1 - next call for continuing 0007 ...