c_main.f90

Go to the documentation of this file.

!*********************************************************************
!*********************************************************************

PROGRAM mamma_main

  USE constitutive, ONLY : initialize_models
  USE inpout, ONLY : init_param , read_param
  USE geometry, ONLY : init_grid
  USE steady_solver, ONLY : steady_shooting

  IMPLICIT NONE

  REAL*8 :: t1 , t2

  CALL cpu_time(t1)

  CALL initialize_models
  
  CALL init_param

  CALL read_param

  CALL init_grid
  
  CALL steady_shooting
  
  CALL cpu_time(t2)

  WRITE(*,*) 'Time taken by the code was',t2-t1,'seconds'


END PROGRAM mamma_main