libsim Versione 7.2.0
|
◆ l4f_launcher()
Ritorna un messaggio caratteristico delle priorità standard. Routine specifica per il SIM. Cattura le variabili di ambiente LOG4_APPLICATION_NAME,LOG4_APPLICATION_ID e compone il nome univoco per il logging. Se le variabili di ambiente non sono impostate ritorna un nome definito dal nome del processo e da un timestamp.
Definizione alla linea 500 del file log4fortran.F90. 501
506FUNCTION l4f_category_exist_legacy(a_category) RESULT(exist)
507INTEGER,INTENT(in):: a_category
508LOGICAL :: exist
509
510IF (a_category <= 0 .OR. a_category > l4f_global_ptr%arraysize) THEN
511 exist = .false.
512ELSE
513 exist = l4f_category_exist(l4f_global_ptr%array(a_category))
514ENDIF
515
516END FUNCTION l4f_category_exist_legacy
517
518
519#endif
520
|