w_outmaxn.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	w_outmaxn (numnod_l, len_am)

Function/Subroutine Documentation

w_outmaxn()

subroutine w_outmaxn	(	integer, intent(in)	numnod_l,
		integer, intent(inout)	len_am )

Definition at line 31 of file w_outmaxn.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE outmax_mod
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 , INTENT(IN) :: NUMNOD_L
      INTEGER , INTENT(INOUT) :: LEN_AM
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,LW
      my_real, DIMENSION(:), ALLOCATABLE :: rtmp
C-----------------------------------------------
C-----will take into account initial state later
      lw = (2*(lmax_nsig+lmax_nstra))*numnod_l
      IF (lw>0) THEN
        ALLOCATE( rtmp(lw) )
! --------------------------------
        rtmp=zero
C
        CALL write_db(rtmp,lw)
        len_am = len_am + lw
        DEALLOCATE( rtmp )
      END IF 
! --------------------------------
      RETURN