i21reset.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i21reset (nsn, irtlm, csts)

Function/Subroutine Documentation

i21reset()

subroutine i21reset	(	integer	nsn,
		integer, dimension(2,*)	irtlm,
			csts )

Definition at line 28 of file i21reset.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NSN, IRTLM(2,*)
C     REAL
      my_real 
     .   csts(2,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
      DO n=1,nsn
        irtlm(1,n)=0
        csts(1,n)  =-one
        csts(2,n)  =-one
      END DO
C
      RETURN