OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
qa_out_mod.F File Reference
#include "qaprint_c.inc"
#include "implicit_f.inc"

Go to the source code of this file.

Data Types

type  qa_out_mod::tqa_value

Modules

module  qa_out_mod

Functions/Subroutines

subroutine qa_out_mod::qaopen (step)
 @purpose open QA extract file
subroutine qa_out_mod::qagetqakeyenv ()
 @purpose get and store the possible values of the QAKEY env variable
subroutine qa_out_mod::blank2underscore (textin, textout)
 @purpose replace blank char with _ for a given string
subroutine qa_out_mod::qaprint (name, idin, value)
 @purpose print one entry to QA extract file example of call for real print CALL QAPRINT('MY_LABEL',0,12345.6_8) (2nd argument is 0, 3rd is the real value to be printed followed with '_8') example of call for integer print CALL QAPRINT('MY_LABEL',123456,0.0_8) (2nd argument is the integer value to be printed, 3rd must be 0.0_8)
subroutine qa_out_mod::qaprint2 (name, idin, value, value2)
 @purpose print one entry to QA extract file in an energy style ()
subroutine qa_out_mod::qastatus (istatus)
 @purpose get QA status
subroutine qa_out_mod::qaseti (pos, title, i)
 @purpose write an integer value in standard values array qa_storage
subroutine qa_out_mod::qasetr (pos, title, r)
 @purpose write a real value in standard values array qa_storage
subroutine qa_out_mod::qaclose ()
 @purpose close QA extract fileCare when routine is called from Fortran (because of binding)
logical function qa_out_mod::myqakey (value)
 @purpose Check if a given value is part of the values set by env variable Useful to make a condition on a qaprint Return true or false
logical function qa_out_mod::is_value_in_qakeylist_avail (value)
 @purpose Check if a given value is the predefined array of available qakeys Useful to check if a qakey is allowed/available Return true or false (false = program must exit with an error)
integer function qa_out_mod::lastchar (a)

Variables

integer qa_out_mod::doqa
integer qa_out_mod::lunitqa
integer qa_out_mod::qaid
integer qa_out_mod::next_index
integer qa_out_mod::lqa_storage
integer, parameter qa_out_mod::qaprint_limit_default = 10000
integer, parameter qa_out_mod::qaprint_limit_maxx = 500000
integer qa_out_mod::qaprint_limit
type(tqa_value), dimension(:), allocatable qa_out_mod::qa_storage
character *12 qa_out_mod::qa_format
integer qa_out_mod::emax_index
integer qa_out_mod::nqakeylist_avail
character(len=64), dimension(520) qa_out_mod::split_qakey_env