HvD: Replaced an absolute character array dimension with a dimension specified

by a parameter. This to keep the string dimensions consistent if the parameters
are changed.
This commit is contained in:
Huub Van Dam 2011-04-19 06:20:49 +00:00
parent 18026ca676
commit a08e1830e4

View file

@ -1,6 +1,7 @@
subroutine get_input_filename(input_filename)
C $Id$
implicit none
#include "util.fh"
#include "inp.fh"
#include "global.fh"
#include "stdio.fh"
@ -12,7 +13,7 @@ c argument begins with a hypen (-).
c
c If the file cannot be accessed append .nw
c
character*255 test
character*(nw_max_path_len) test
integer arg,nargs
#if defined(CRAY)
integer ilen,ierror