mirror of
https://github.com/nwchemgit/nwchem.git
synced 2026-07-21 06:25:21 -04:00
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:
parent
18026ca676
commit
a08e1830e4
1 changed files with 2 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue