Commit c8f917ae authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

gfortran warnings in new_com.F90 

allocating big arrays
parent 79ee3890

Makefile.version

+1 −1
Original line number Diff line number Diff line
@@ -3,7 +3,7 @@ export PROJECT=drspine 


export VERSION_MAJOR=1

export VERSION_MINOR=2

export VERSION_RELEASE=0

export VERSION_RELEASE=1



export PROJLIB=lib$(PROJECT).a

export PROJARCH=$(PROJECT)-$(VERSION_MAJOR).$(VERSION_MINOR)

sources/new_com.F90

+10 −4
Original line number Diff line number Diff line
@@ -248,9 +248,10 @@ MODULE new_com 
  !





  ! (paz) allocate  these

  character(cmd_long) , dimension(:),     allocatable, public ::  argvals

  character(cmd_len)  , dimension(:,:,:), allocatable, public ::  pmlst



  character(cmd_long) , public ::  argvals(minc)

  character(cmd_len)  , public ::  pmlst(mdepth,minc,2)



  integer       , public ::  iargvs

  integer       , public ::  ipmlst(mdepth)
@@ -313,7 +314,8 @@ MODULE new_com 
  character*4 , private ::  typ

  character*4 , private ::  opstack(maxopstack)



  character(cmd_len), private ::  usrfstack(musrfstack)

  ! (paz) allocate usrf stack

  character(cmd_len), dimension(:), allocatable, private ::  usrfstack



  !needed in subroutine getitem - dirty!

  character*(maxitemlength+1), private :: citemx
@@ -554,7 +556,11 @@ CONTAINS 
    ! ---- initialisations & conventions ----

    !

    if(init_run.eq.1) then



       ! (paz) allocate stack variables

       allocate(usrfstack(musrfstack))

       allocate(argvals(minc))

       allocate(pmlst(mdepth,minc,2))

       !

       ktop = 0 

       kanal(ktop) = input_unit

       !