i22sti3.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "scr17_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i22sti3 (stf, nrt)

Function/Subroutine Documentation

i22sti3()

subroutine i22sti3	(	dimension(nrt), intent(inout)	stf,
		integer, intent(in)	nrt )

Definition at line 31 of file i22sti3.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE names_and_titles_mod , ONLY : nchartitle
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
#include      "param_c.inc"
#include      "scr17_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER,INTENT(IN) :: NRT
      my_real,INTENT(INOUT) :: stf(nrt)
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
 
      stf(1:nrt)=one
      
      RETURN