- Timestamp:
- 11/19/09 11:29:48 (14 years ago)
- Branches:
- master
- Children:
- 7137e5d
- Parents:
- 32289cd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cnteny.f
r32289cd r38d77eb 37 37 38 38 if (ntlvr.eq.0) then 39 write ( *,'(a,i4)')39 write (logString, '(a,i4)') 40 40 & ' cnteny> No variables defined in molecule #',nml 41 41 return … … 184 184 nbc=nbc+1 185 185 ir=nursat(i) 186 write (*,'(1x,i4,1x,a4,1x,a4,a2,e11.4)') ir,seq(ir),nmat(i),187 & 186 write (logString, '(1x,i4,1x,a4,1x,a4,a2,e11.4)') ir,seq(ir), 187 & nmat(i), ': ',ey 188 188 endif 189 189 enddo
Note:
See TracChangeset
for help on using the changeset viewer.