OOPSE/libmdtools/wrappers.F90


subroutine wrapForceField(infoWrapper)

  use atype_module, ONLY: new_atype
  use do_Forces, ONLY: init_FF, do_force_loop
  use sticky_pair, ONLY: set_sticky_params
  use gb_pair, ONLY: set_gb_pair_params
  external infoWrapper

  call infoWrapper(new_atype,init_FF,do_force_loop, &
       set_sticky_params,set_gb_pair_params)
  
end subroutine wrapForceField


subroutine wrapSimMod(infoWrapper)
  use simulation, only: simulationSetup, setBox
  use notifyCutoffs, only: cutoffNotify
  
  external infoWrapper

  call infoWrapper( simulationSetup, setBox, cutoffNotify )

end subroutine wrapSimMod


#ifdef IS_MPI

subroutine wrapSimParallelMod(infoWrapper)
  use mpiSimulation, only: setupSimParallel
  
  external infoWrapper
  
  call infoWrapper( setupSimParallel )

end subroutine wrapSimParallelMod

#endif
Revision:	626
Committed:	Wed Jul 16 21:30:56 2003 UTC (20 years, 11 months ago) by mmeineke
File size:	817 byte(s)
Log Message:	Changed how cutoffs were handled from C. Now notifyCutoffs in Fortran notifies those who need the information of any changes to cutoffs.
#	User	Rev	Content
1	mmeineke	377
2			subroutine wrapForceField(infoWrapper)
3
4			use atype_module, ONLY: new_atype
5			use do_Forces, ONLY: init_FF, do_force_loop
6	gezelter	462	use sticky_pair, ONLY: set_sticky_params
7			use gb_pair, ONLY: set_gb_pair_params
8	mmeineke	377	external infoWrapper
9
10	chuckv	460	call infoWrapper(new_atype,init_FF,do_force_loop, &
11	mmeineke	626	set_sticky_params,set_gb_pair_params)
12	mmeineke	377
13			end subroutine wrapForceField
14
15
16			subroutine wrapSimMod(infoWrapper)
17	mmeineke	572	use simulation, only: simulationSetup, setBox
18	mmeineke	626	use notifyCutoffs, only: cutoffNotify
19	mmeineke	377
20			external infoWrapper
21
22	mmeineke	626	call infoWrapper( simulationSetup, setBox, cutoffNotify )
23	mmeineke	377
24			end subroutine wrapSimMod
25
26
27
28			#ifdef IS_MPI
29
30			subroutine wrapSimParallelMod(infoWrapper)
31			use mpiSimulation, only: setupSimParallel
32
33			external infoWrapper
34
35			call infoWrapper( setupSimParallel )
36
37			end subroutine wrapSimParallelMod
38
39			#endif