Searched defs:DPMSD3 (Results 1 – 1 of 1) sorted by relevance
7553 SUBROUTINE DPMSD3(X,N,IWRITE,ALPHA, subroutine7555 1 ISUBRO,IBUGA3,IERROR)7623 999 FORMAT(1X)7633 56 FORMAT('I,X(I) = ',I8,G15.7)7635 55 CONTINUE7660 1 'RESPONSE')7666 116 FORMAT(' SUCH WAS NOT THE CASE HERE.')7670 1 '.')7693 100 CONTINUE7739 9011 FORMAT('***** AT THE END OF DPMSD3--') argument[all …]