File: putstr.f

package info (click to toggle)
x13as 1.1-b59-1
  • links: PTS, VCS
  • area: non-free
  • in suites: bookworm
  • size: 9,088 kB
  • sloc: fortran: 114,121; makefile: 14
file content (18 lines) | stat: -rw-r--r-- 914 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
C     Last change:  BCM   2 Apr 98    1:01 pm
**==putstr.f    processed by SPAG 4.03F  at 09:52 on  1 Mar 1994
      SUBROUTINE putstr(Str,Pstr,Chrvec,Ptrvec,Nstr)
      IMPLICIT NONE
c     -----------------------------------------------------------------
      INCLUDE 'error.cmn'
c     -----------------------------------------------------------------
      CHARACTER Chrvec*(*),Str*(*)
      INTEGER Nstr,Pstr,Ptrvec
      DIMENSION Ptrvec(0:Pstr)
c     -----------------------------------------------------------------
      CALL insptr(.true.,len(Str),Nstr+1,Pstr,len(Chrvec),Ptrvec,Nstr)
c     -----------------------------------------------------------------
      IF(.not.Lfatal)Chrvec(Ptrvec(Nstr-1):Ptrvec(Nstr)-1)=Str
c     -----------------------------------------------------------------
      RETURN
c     -----------------------------------------------------------------
      END