A fix of a bug reported in forum.

exciting · Jul 30, 2014 · ce46ecf · ce46ecf
1 parent 10871dd
commit ce46ecf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/src_xs/putpmat.F90 b/src/src_xs/putpmat.F90
@@ -20,7 +20,7 @@ Subroutine putpmat (ik, tarec, filnam, pm)
     ! true if absolut record position is ik
          Logical, Intent (In) :: tarec
          Character (*), Intent (In) :: filnam
-         Complex (8), Intent (In) :: pm (:, :, :)
+         Complex (8), Intent (InOut) :: pm (:, :, :)
     ! local variables
          Integer :: un, recl, ikr
          Logical :: tarect