35003598 by Nathan Lighthart

Fix UPGM to compile with gfortran 6.3.0

- Move declaration of string lengths before the string declaration. The new compiler requires the parameter to len to be declared before use when using implicit none
1 parent dc6f1372
......@@ -66,61 +66,61 @@ subroutine jupgminit(cropxmlfile,cropxmlfile_len,upgmcropfile, &
include 'prevstate.inc'
include 'upgmmain.inc'
integer(C_INT), value, intent(in) :: cropxmlfile_len
! @Description("Cropxml.dat file")
! @In
character(kind=C_CHAR, len=cropxmlfile_len) :: cropxmlfile
integer(C_INT), value, intent(in) :: cropxmlfile_len
integer(C_INT), value, intent(in) :: upgmcropfile_len
! @Description("Upgm_crop.dat file")
! @In
character(kind=C_CHAR, len=upgmcropfile_len) :: upgmcropfile
integer(C_INT), value, intent(in) :: upgmcropfile_len
integer(C_INT), value, intent(in) :: upgmmgmtfile_len
! @Description("Upgm_mgmt.dat file")
! @In
character(kind=C_CHAR, len=upgmmgmtfile_len) :: upgmmgmtfile
integer(C_INT), value, intent(in) :: upgmmgmtfile_len
integer(C_INT), value, intent(in) :: canopyhtoutfile_len
! @Description("Upgm_mgmt.dat file")
! @In
character(kind=C_CHAR, len=canopyhtoutfile_len) :: canopyhtoutfile
integer(C_INT), value, intent(in) :: canopyhtoutfile_len
integer(C_INT), value, intent(in) :: cdbugoutfile_len
! @Description("Upgm_mgmt.dat file")
! @In
character(kind=C_CHAR, len=cdbugoutfile_len) :: cdbugoutfile
integer(C_INT), value, intent(in) :: cdbugoutfile_len
integer(C_INT), value, intent(in) :: cropoutfile_len
! @Description("Upgm_mgmt.dat file")
! @In
character(kind=C_CHAR, len=cropoutfile_len) :: cropoutfile
integer(C_INT), value, intent(in) :: cropoutfile_len
integer(C_INT), value, intent(in) :: emergeoutfile_len
! @Description("Upgm_mgmt.dat file")
! @In
character(kind=C_CHAR, len=emergeoutfile_len) :: emergeoutfile
integer(C_INT), value, intent(in) :: emergeoutfile_len
integer(C_INT), value, intent(in) :: inptoutfile_len
! @Description("Upgm_mgmt.dat file")
! @In
character(kind=C_CHAR, len=inptoutfile_len) :: inptoutfile
integer(C_INT), value, intent(in) :: inptoutfile_len
integer(C_INT), value, intent(in) :: phenoloutfile_len
! @Description("Upgm_mgmt.dat file")
! @In
character(kind=C_CHAR, len=phenoloutfile_len) :: phenoloutfile
integer(C_INT), value, intent(in) :: phenoloutfile_len
integer(C_INT), value, intent(in) :: seasonoutfile_len
! @Description("Upgm_mgmt.dat file")
! @In
character(kind=C_CHAR, len=seasonoutfile_len) :: seasonoutfile
integer(C_INT), value, intent(in) :: seasonoutfile_len
integer(C_INT), value, intent(in) :: shootoutfile_len
! @Description("Upgm_mgmt.dat file")
! @In
character(kind=C_CHAR, len=shootoutfile_len) :: shootoutfile
integer(C_INT), value, intent(in) :: shootoutfile_len
......
Styling with Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!