sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:21:18
0001 0002 C********************************************************************* 0003 0004 C...PYSTOP 0005 C...Allows users to handle STOP statemens 0006 0007 SUBROUTINE PYSTOP(MCOD) 0008 0009 C...Double precision and integer declarations. 0010 IMPLICIT DOUBLE PRECISION(A-H, O-Z) 0011 IMPLICIT INTEGER(I-N) 0012 INTEGER PYK,PYCHGE,PYCOMP 0013 C...Commonblocks. 0014 COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200) 0015 SAVE /PYDAT1/ 0016 0017 0018 C...Write message, then stop 0019 WRITE(MSTU(11),5000) MCOD 0020 STOP 0021 0022 0023 C...Formats for output. 0024 5000 FORMAT(/5X,'PYSTOP called with code: ',I4) 0025 RETURN 0026 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|