00001 subroutine initializeModel 00002 00003 use global 00004 00005 00006 implicit none 00007 00008 00009 !call assignPointers 00010 00011 call ModelInfo 00012 00013 call initializePhysics 00014 00015 00016 00017 00018 end subroutine initializeModel