mrdse2.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	mrdse2 (rr, nr, tt, nt, pp, ee)

Function/Subroutine Documentation

mrdse2()

subroutine mrdse2	(		rr,
		integer	nr,
			tt,
		integer	nt,
			pp,
			ee )

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