home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume31 / flow / part05 < prev    next >
Encoding:
Text File  |  1992-07-30  |  6.0 KB  |  191 lines
  1. Newsgroups: comp.sources.misc
  2. From: julian@vscn08.cern.ch (Julian James Bunn)
  3. Subject:  v31i068:  flow - Fortran Structure Analysers, Part05/05
  4. Message-ID: <1992Jul31.052656.546@sparky.imd.sterling.com>
  5. X-Md4-Signature: 3933b5cec6d976fba70e5b61ca9193e5
  6. Date: Fri, 31 Jul 1992 05:26:56 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: julian@vscn08.cern.ch (Julian James Bunn)
  10. Posting-number: Volume 31, Issue 68
  11. Archive-name: flow/part05
  12. Environment: fortran, ffccc
  13.  
  14. #! /bin/sh
  15. # This is a shell archive.  Remove anything before this line, then feed it
  16. # into a shell via "sh file" or similar.  To overwrite existing files,
  17. # type "sh file -c".
  18. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  19. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  20. # Contents:  extern.for gtx.for hashnm.h ignore.h jobcom.h lenocc.for
  21. #   lunits.h search.for
  22. # Wrapped by kent@sparky on Thu Jul 30 23:38:15 1992
  23. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  24. echo If this archive is complete, you will see the following message:
  25. echo '          "shar: End of archive 5 (of 5)."'
  26. if test -f 'extern.for' -a "${1}" != "-c" ; then 
  27.   echo shar: Will not clobber existing file \"'extern.for'\"
  28. else
  29.   echo shar: Extracting \"'extern.for'\" \(228 characters\)
  30.   sed "s/^X//" >'extern.for' <<'END_OF_FILE'
  31. X      SUBROUTINE EXTERN
  32. XC! Find names of external routines
  33. X      INCLUDE 'params.h'
  34. X      INCLUDE 'tables.h'
  35. X      INCLUDE 'lunits.h'
  36. XC
  37. X      REWIND(LINTRE)
  38. X      IPASS = 2
  39. X      CALL RDFLOP(IPASS)
  40. X      CLOSE(LINTRE)
  41. X      END
  42. END_OF_FILE
  43.   if test 228 -ne `wc -c <'extern.for'`; then
  44.     echo shar: \"'extern.for'\" unpacked with wrong size!
  45.   fi
  46.   # end of 'extern.for'
  47. fi
  48. if test -f 'gtx.for' -a "${1}" != "-c" ; then 
  49.   echo shar: Will not clobber existing file \"'gtx.for'\"
  50. else
  51.   echo shar: Extracting \"'gtx.for'\" \(287 characters\)
  52.   sed "s/^X//" >'gtx.for' <<'END_OF_FILE'
  53. X      SUBROUTINE GTX(X,Y,CHARS)
  54. XC! Plots the text at a given position
  55. X      INCLUDE 'lunits.h'
  56. X      CHARACTER*(*) CHARS
  57. XC
  58. X      WRITE(LOUTCH,100) x,' xrel ',y,' yrel moveto'
  59. X  100 FORMAT(1X,F10.5,A,F10.5,A)
  60. X      L = LENOCC(CHARS)
  61. X      WRITE(LOUTCH,*) '(',CHARS(:L),') show'
  62. X      END
  63. END_OF_FILE
  64.   if test 287 -ne `wc -c <'gtx.for'`; then
  65.     echo shar: \"'gtx.for'\" unpacked with wrong size!
  66.   fi
  67.   # end of 'gtx.for'
  68. fi
  69. if test -f 'hashnm.h' -a "${1}" != "-c" ; then 
  70.   echo shar: Will not clobber existing file \"'hashnm.h'\"
  71. else
  72.   echo shar: Extracting \"'hashnm.h'\" \(257 characters\)
  73.   sed "s/^X//" >'hashnm.h' <<'END_OF_FILE'
  74. X      PARAMETER (NXPOS=1000,NYPOS=40,MXLNK=50,MXLFT=200)
  75. X      INTEGER NUMBER(NYPOS),INEXT(MXLFT)
  76. X      REAL XBOX(MAXPRO),YBOX(MAXPRO),PX(10),PY(10)
  77. X      INTEGER IXPOS(MAXPRO)
  78. X      CHARACTER*(MXNAM) CNAM
  79. X      CHARACTER*(MXNAM) CPLACE(-NXPOS:NXPOS,NYPOS)
  80. END_OF_FILE
  81.   if test 257 -ne `wc -c <'hashnm.h'`; then
  82.     echo shar: \"'hashnm.h'\" unpacked with wrong size!
  83.   fi
  84.   # end of 'hashnm.h'
  85. fi
  86. if test -f 'ignore.h' -a "${1}" != "-c" ; then 
  87.   echo shar: Will not clobber existing file \"'ignore.h'\"
  88. else
  89.   echo shar: Extracting \"'ignore.h'\" \(84 characters\)
  90.   sed "s/^X//" >'ignore.h' <<'END_OF_FILE'
  91. X      COMMON /IGNORE/ NIGNO,CIGNO(MXIGN),LIGNO(MXIGN)
  92. X      CHARACTER*(MXNAM) CIGNO
  93. END_OF_FILE
  94.   if test 84 -ne `wc -c <'ignore.h'`; then
  95.     echo shar: \"'ignore.h'\" unpacked with wrong size!
  96.   fi
  97.   # end of 'ignore.h'
  98. fi
  99. if test -f 'jobcom.h' -a "${1}" != "-c" ; then 
  100.   echo shar: Will not clobber existing file \"'jobcom.h'\"
  101. else
  102.   echo shar: Extracting \"'jobcom.h'\" \(239 characters\)
  103.   sed "s/^X//" >'jobcom.h' <<'END_OF_FILE'
  104. X      COMMON /JOBCOM/ LDEBUG,LPRINT,LTREE,LCOMM,LSUBS,LQERY,LCHRT
  105. X      LOGICAL LPRINT,LDEBUG,LTREE,LCOMM,LSUBS,LQERY,LCHRT
  106. X      COMMON /JOBCO1/ CHART,CHRTYP,CCOMM,CGRAPH
  107. X      CHARACTER*(128) CHART,CHRTYP,CCOMM,CGRAPH
  108. X                  
  109. END_OF_FILE
  110.   if test 239 -ne `wc -c <'jobcom.h'`; then
  111.     echo shar: \"'jobcom.h'\" unpacked with wrong size!
  112.   fi
  113.   # end of 'jobcom.h'
  114. fi
  115. if test -f 'lenocc.for' -a "${1}" != "-c" ; then 
  116.   echo shar: Will not clobber existing file \"'lenocc.for'\"
  117. else
  118.   echo shar: Extracting \"'lenocc.for'\" \(221 characters\)
  119.   sed "s/^X//" >'lenocc.for' <<'END_OF_FILE'
  120. X      INTEGER FUNCTION LENOCC(CH)
  121. X      CHARACTER*(*) CH
  122. X      L = LEN(CH)
  123. X      DO 1 I=L,1,-1
  124. X        IF(CH(I:I).NE.' ') THEN
  125. X          LENOCC = I
  126. X          RETURN
  127. X        ENDIF
  128. X    1 CONTINUE
  129. X      LENOCC = 0
  130. X      END
  131. END_OF_FILE
  132.   if test 221 -ne `wc -c <'lenocc.for'`; then
  133.     echo shar: \"'lenocc.for'\" unpacked with wrong size!
  134.   fi
  135.   # end of 'lenocc.for'
  136. fi
  137. if test -f 'lunits.h' -a "${1}" != "-c" ; then 
  138.   echo shar: Will not clobber existing file \"'lunits.h'\"
  139. else
  140.   echo shar: Extracting \"'lunits.h'\" \(58 characters\)
  141.   sed "s/^X//" >'lunits.h' <<'END_OF_FILE'
  142. X      COMMON /LUNIT/ LIN,LOUT,LINTRE,LOUTRE,LOUTCO,LOUTCH
  143. END_OF_FILE
  144.   if test 58 -ne `wc -c <'lunits.h'`; then
  145.     echo shar: \"'lunits.h'\" unpacked with wrong size!
  146.   fi
  147.   # end of 'lunits.h'
  148. fi
  149. if test -f 'search.for' -a "${1}" != "-c" ; then 
  150.   echo shar: Will not clobber existing file \"'search.for'\"
  151. else
  152.   echo shar: Extracting \"'search.for'\" \(312 characters\)
  153.   sed "s/^X//" >'search.for' <<'END_OF_FILE'
  154. X      INTEGER FUNCTION SEARCH(CNAM)
  155. XC! Finds the index for a routine name
  156. X      INCLUDE 'params.h'
  157. X      INCLUDE 'tables.h'
  158. X      CHARACTER*(*) CNAM
  159. XC
  160. X      SEARCH = 0
  161. X      DO 1 I=1,NPROC
  162. X         IF(CNAM.EQ.PROCED_NAME(I)) THEN
  163. X            SEARCH = I
  164. X            RETURN
  165. X         ENDIF
  166. X   1  CONTINUE
  167. X      END
  168. END_OF_FILE
  169.   if test 312 -ne `wc -c <'search.for'`; then
  170.     echo shar: \"'search.for'\" unpacked with wrong size!
  171.   fi
  172.   # end of 'search.for'
  173. fi
  174. echo shar: End of archive 5 \(of 5\).
  175. cp /dev/null ark5isdone
  176. MISSING=""
  177. for I in 1 2 3 4 5 ; do
  178.     if test ! -f ark${I}isdone ; then
  179.     MISSING="${MISSING} ${I}"
  180.     fi
  181. done
  182. if test "${MISSING}" = "" ; then
  183.     echo You have unpacked all 5 archives.
  184.     rm -f ark[1-9]isdone
  185. else
  186.     echo You still must unpack the following archives:
  187.     echo "        " ${MISSING}
  188. fi
  189. exit 0
  190. exit 0 # Just in case...
  191.