fixing warnings in pionfatt_mod.F90.in

rfiorella · Jun 25, 2019 · 32a1f48 · 32a1f48
1 parent d648c55
commit 32a1f48
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/flib/Makefile.am b/src/flib/Makefile.am
@@ -32,7 +32,7 @@ libpio_types_la_SOURCES = pio_types.F90
 libpio_support_la_SOURCES = pio_support.F90
 libpio_nf_la_SOURCES = pio_nf.F90
 libpiodarray_la_SOURCES = piodarray.F90
-libpionfatt_la_SOURCES = p1ionfatt_mod.f901
+libpionfatt_la_SOURCES = pionfatt_mod.F90
 libpionfget_la_SOURCES = pionfget_mod.F90
 libpionfput_la_SOURCES = pionfput_mod.F90
 libpiolib_mod_la_SOURCES = piolib_mod.F90
@@ -55,7 +55,7 @@ pio_types.mod: pio_types.$(OBJEXT)
 pio_support.mod: pio_support.$(OBJEXT)
 pio_nf.mod: pio_nf.$(OBJEXT)
 piodarray.mod: piodarray.F90 piodarray.$(OBJEXT)
-pionfatt_mod.mod: pionfatt_mod.f90 pionfatt_mod.$(OBJEXT)
+pionfatt_mod.mod: pionfatt_mod.F90 pionfatt_mod.$(OBJEXT)
 pionfget_mod.mod: pionfget_mod.F90 pionfget_mod.$(OBJEXT)
 pionfput_mod.mod: pionfput_mod.F90 pionfput_mod.$(OBJEXT)
 piolib_mod.mod: piolib_mod.$(OBJEXT)

diff --git a/src/flib/pionfatt_mod.F90.in b/src/flib/pionfatt_mod.F90.in
@@ -199,7 +199,7 @@ contains
     clen = len_trim(values)
     allocate(cvar(clen+1))
     cvar = C_NULL_CHAR
-    do i=1,clen
+    do i=1,int(clen)
        cvar(i) = values(i:i)
     end do
     ierr = PIOc_put_att_text (ncid,varid-1,trim(name)//C_NULL_CHAR, clen, cvar(1))