w_stack.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	w_stack (igeo, geo, len_ig, len_g, len_ia, len_am, pm, len_pm)

Function/Subroutine Documentation

w_stack()

subroutine w_stack	(	integer, dimension(*)	igeo,
			geo,
		integer	len_ig,
		integer	len_g,
		integer	len_ia,
		integer	len_am,
			pm,
		integer	len_pm )

Definition at line 29 of file w_stack.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 IGEO(*), LEN_IG, LEN_G,LEN_IA,LEN_AM,LEN_PM
      my_real
     .        geo(*),pm(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
C   
        CALL write_i_c(igeo,len_ig)
        len_ia = len_ia + len_ig
C      
        CALL write_db(geo,len_g)
        len_am = len_am + len_g  
C            
        CALL write_db(pm,len_pm)
        len_am = len_am + len_pm  
C
      RETURN