- Timestamp:
- 11/19/09 11:29:48 (14 years ago)
- Branches:
- master
- Children:
- 7137e5d
- Parents:
- 32289cd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
opesol.f
r32289cd r38d77eb 51 51 ntlvr=nvrml(nml) 52 52 if (ntlvr.eq.0) then 53 write ( *,'(a,i4)')53 write (logString, '(a,i4)') 54 54 & ' opesol> No variables defined in molecule #',nml 55 55 return … … 283 283 gdn=(eynw-eysl)/del ! numerical derivative 284 284 285 write ( *,'(1x,2a,2(e12.6,a))') nmvr(iv),': ',gda,' (',285 write (logString, '(1x,2a,2(e12.6,a))') nmvr(iv),': ',gda,' (', 286 286 & abs(gda-gdn),')' 287 287
Note:
See TracChangeset
for help on using the changeset viewer.