- Timestamp:
- 11/19/09 11:29:48 (14 years ago)
- Branches:
- master
- Children:
- 7137e5d
- Parents:
- 32289cd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
opeflx.f
r32289cd r38d77eb 60 60 ntlvr=nvrml(nml) 61 61 if (ntlvr.eq.0) then 62 write ( *,'(a,i4)')62 write (logString, '(a,i4)') 63 63 & ' opeflx> No variables defined in molecule #',nml 64 64 return … … 504 504 gda=gdeyvr(iv) ! analytical der. 505 505 506 write ( *,'(1x,2a,2(e12.6,a))') nmvr(iv),': ',gda,' (',506 write (logString, '(1x,2a,2(e12.6,a))') nmvr(iv),': ',gda,' (', 507 507 & abs(gda-gdn),')' 508 508
Note:
See TracChangeset
for help on using the changeset viewer.