00001 !----------------------------------------------------------------------- 00002 ! Copyright 2006-2010, CERFACS, Toulouse, France. 00003 ! Copyright 2006-2010, SGI Germany, Munich, Germany. 00004 ! Copyright 2006-2010, NEC Europe Ltd., London, UK. 00005 ! All rights reserved. Use is subject to OASIS4 license terms. 00006 !----------------------------------------------------------------------- 00007 !BOP 00008 ! 00009 ! !ROUTINE: PRISM_Initialized 00010 ! 00011 ! !INTERFACE: 00012 00013 subroutine prism_initialized ( flag, ierror) 00014 ! 00015 ! !USES: 00016 ! 00017 use PRISM, dummy_interface => prism_initialized 00018 ! 00019 use PSMILe 00020 00021 implicit none 00022 ! 00023 ! !OUTPUT PARAMETERS: 00024 ! 00025 logical, Intent (Out) :: flag 00026 00027 ! Returns the status of the PRISM library 00028 ! flag = .true. : PRISM library was successfully initialized 00029 ! flag = .false. : PRISM library is not yet initialized 00030 ! 00031 integer, Intent (Out) :: ierror 00032 00033 ! Returns the error code of prism_initialized; 00034 ! ierror = 0 : No error 00035 ! ierror > 0 : Severe error 00036 ! 00037 ! !DESCRIPTION: 00038 ! 00039 ! Subroutine "prism_initialized" returns the status of the PRISM library. 00040 ! 00041 ! !SEE ALSO: 00042 ! 00043 ! prism_init, prism_init_comp, prism_terminate, prism_terminated 00044 ! 00045 ! !REVISION HISTORY: 00046 ! Date Programmer Description 00047 ! ---------- ---------- ----------- 00048 ! 01.12.03 H. Ritzdorf created 00049 ! 00050 !EOP 00051 !---------------------------------------------------------------------- 00052 ! 00053 ! $Id: prism_initialized.F90 2325 2010-04-21 15:00:07Z valcke $ 00054 ! $Author: valcke $ 00055 ! 00056 Character(len=len_cvs_string), save :: mycvs = 00057 '$Id: prism_initialized.F90 2325 2010-04-21 15:00:07Z valcke $' 00058 ! 00059 !---------------------------------------------------------------------- 00060 00061 flag = PRISM_is_initialized 00062 00063 ierror = 0 00064 00065 end subroutine prism_initialized
1.6.1