--- trunk/libf/IOIPSL/histcom.f90	2011/01/25 15:11:05	39
+++ trunk/libf/IOIPSL/histcom.f90	2011/02/22 13:49:36	40
@@ -447,8 +447,8 @@
 
   !**********************************
 
-  SUBROUTINE histdef(pfileid, pvarname, ptitle, punit, pxsize, pysize, phoriid, &
-       pzsize, par_oriz, par_szz, pzid, popp, pfreq_opp, pfreq_wrt)
+  SUBROUTINE histdef(pfileid, pvarname, ptitle, punit, pxsize, pysize, &
+       phoriid, pzsize, par_oriz, par_szz, pzid, popp, pfreq_opp, pfreq_wrt)
 
     ! With this subroutine each variable to be archived on the history
     ! tape should be declared.