ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE_old/src/mdtools/libmdCode/wrappers.F90
Revision: 367
Committed: Wed Mar 19 17:29:49 2003 UTC (21 years, 5 months ago) by mmeineke
File size: 640 byte(s)
Log Message:
*** empty log message ***

File Contents

# User Rev Content
1 mmeineke 293
2     subroutine wrapForceField(infoWrapper)
3    
4 mmeineke 355 use atype_module, ONLY: new_atype
5     use do_Forces, ONLY: init_FF, do_force_loop
6 mmeineke 293 external infoWrapper
7    
8 mmeineke 355 call infoWrapper(new_atype,init_FF,do_force_loop)
9 mmeineke 293
10     end subroutine wrapForceField
11    
12    
13    
14 mmeineke 270 subroutine wrapSimMod(infoWrapper)
15 mmeineke 367 use simulation, only: simulationSetup, setBox_3d
16 mmeineke 270
17     external infoWrapper
18    
19 mmeineke 367 call infoWrapper( simulationSetup, setBox_3d )
20 mmeineke 270
21     end subroutine wrapSimMod
22    
23    
24    
25     #ifdef IS_MPI
26    
27     subroutine wrapSimParallelMod(infoWrapper)
28 mmeineke 355 use mpiSimulation, only: setupSimParallel
29 mmeineke 270
30     external infoWrapper
31    
32     call infoWrapper( setupSimParallel )
33    
34     end subroutine wrapSimParallelMod
35    
36     #endif