mrdse3.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	mrdse3 (rr, nr, tt, nt, qq)

Function/Subroutine Documentation

mrdse3()

subroutine mrdse3	(		rr,
		integer	nr,
			tt,
		integer	nt,
			qq )

Definition at line 30 of file mrdse3.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 NR, NT
C     REAL
      my_real
     .   rr(nr), tt(nt), qq(nr,nt)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I1, MAT, I, J, K, L
C     REAL
      my_real
     .   b1, b2
      READ(31,*)i1,mat
      READ(31,'(5E15.0)')b1,b2,
     +  (rr(i),i=1,nr),(tt(j),j=1,nt),
     +  ((qq(k,l),k=1,nr),l=1,nt)
      RETURN