Searched defs:JSUPDF (Results 1 – 1 of 1) sorted by relevance
27594 SUBROUTINE JSUPDF(X,ALPHA1,ALPHA2,PDF) subroutine27653 14 FORMAT('***** ERROR--THE THIRD INPUT ARGUMENT TO THE JSUPDF ') argument27654 15 FORMAT(' SUBROUTINE IS NON-POSITIVE.')27655 46 FORMAT('***** THE VALUE OF THE ARGUMENT IS ',E15.8,' *****')27668 9000 CONTINUE