ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE_old/src/mdtools/libmdCode/forceGlobals.F90
(Generate patch)

Comparing trunk/OOPSE_old/src/mdtools/libmdCode/forceGlobals.F90 (file contents):
Revision 310 by chuckv, Tue Mar 11 00:40:38 2003 UTC vs.
Revision 315 by chuckv, Tue Mar 11 20:15:18 2003 UTC

# Line 244 | Line 244 | contains
244         return
245      endif
246  
247 +    call setupGlobals(thisStat)
248 +    if (thisStat /= 0) then
249 +       status = -1
250 +       return
251 +    endif
252 +
253      isFFinit = .true.
254      
255      
256    end subroutine init_FF
257  
258 +  subroutine setupGlobals(thisStat)
259 +    integer, intent(out) :: thisStat
260  
261  
262 +  end subroutine setupGlobals
263 +
264 +
265    subroutine initForce_Modules(thisStat)
266      integer, intent(out) :: thisStat
267      integer :: my_status

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines