Dear all Please have a look below at the short excerpt of a source code. MODE=6 PSYDAT(6)=wAirEnt PSYDAT(7)=hAirEnt CALL PSYCHROMETRICS(TIME,INFO,IUNITS,MODE,WBMODE, & PSYDAT,EMODE,STATUS) write(myMessage,'(" PSYDAT(2)=",D," PSYDAT(6)=",D, & " PSYDAT(7)=",D)') PSYDAT(2),PSYDAT(6),PSYDAT(7) CALL MESSAGES(-1,trim(myMessage), & 'Notice',info(1),info(2)) PSYDAT(2)=29.82D0 CALL PSYCHROMETRICS(TIME,INFO,IUNITS,MODE,WBMODE, & PSYDAT,EMODE,STATUS) write(myMessage,'(" PSYDAT(2)=",D," PSYDAT(6)=",D, & " PSYDAT(7)=",D)') PSYDAT(2),PSYDAT(6),PSYDAT(7) CALL MESSAGES(-1,trim(myMessage), & 'Notice',info(1),info(2)) I know PSYDAT(2) is not used in MODE 6 but please have a look now at the response I get… *** Notice at time : 16.375000 Generated by Unit : 2 Generated by Type : 206 Message : PSYDAT(2)= 0.1732587158021238D+02 PSYDAT(6)= 0.8524754597715760D-02 PSYDAT(7)= 0.5159925701758463D+02 *** Notice at time : 16.375000 Generated by Unit : 2 Generated by Type : 206 Message : PSYDAT(2)= 0.2981999969482422D+02 PSYDAT(6)= 0.8524754597715760D-02 PSYDAT(7)= 0.5159925701758463D+02 Same humidity ratio, same enthalpy and quite different dry bulb temperature. Why the second PSYCHROMETRICS statement does not rewrite on PSYDAT(2)? Any help would be quite appreciated as I am slowly but surely getting crazy! Thanks a lot. Regards -- Antoine Gautier antoine.gautier@solamen.fr |