Magic number defining maximum length of the input file name

[GoogleCodeExporter]

Magic numbers in the code are bad. 

Right now structure of the code is full of them. One of such magic numbers - 
maximum length of the input file name.

What do we have right now:

ggeom.F90
line 21 
character(len=60)   :: ofile
----
dqmc_2dperl.F90,
line 51 
character(len=60) :: ofile
----
dqmc_dfg.F90
line 19
integer, parameter :: slen = 60
line 29
character(8), parameter :: TYPE_STR(3) =(/"Real*8  ","Integer ,"Char(60)"/)
line 662
character(len=60)      :: iname
----
dqmc_geom_wrap
line 29
character(len=60), intent(in)     :: gfile
----
dqmc_hubbard.F90
line 632
character(len=60) :: fname
----
dqmc_util.F90
line 1149
character(len=60), intent(out) :: fname
line 1151
character(len=60) :: outname
-----------------------------------------------------
How can we do this in such a manner that maximum length of the input file name 
is defined as a parameter in one place and rest of the files will just use this 
parameter. So that if we need to change it it will require to change only one 
number in one file. How can we do this?

Original issue reported on code.google.com by iglovi...@gmail.com on 13 Apr 2014 at 4:23