m_psml.F90 Source File

#if defined HAVE_CONFIG_H
#include "config.h"
#endif

module m_psml

!
  use m_psml_reader, only: psml_reader 

  use m_psml_core, only: ps_t, ps_destroy

  use m_psml_core, only: str_of_set
  use m_psml_core, only:     SET_SREL     , &
                             SET_NONREL   , &
                             SET_SO       , &
                             SET_LJ       , &
                             SET_UP       , &
                             SET_DOWN     , &
                             SET_SPINAVE  , &
                             SET_SPINDIFF , &
                             SET_USER1    , &
                             SET_USER2    , &
                             SET_ALL

  ! Temporarily needed for psop
  use m_psml_core, only: nonlocal_t, nlpj_t

  use m_psml_api
  
  use m_psml_dump
  use m_psml_ps_edit

  ! Exported utility types
  use m_psml_core, only: ps_radfunc_t => radfunc_t
  use m_psml_assoc_list, only: ps_annotation_t => assoc_list_t

  use m_psml_assoc_list, only: nitems_annotation => assoc_list_nitems
  use m_psml_assoc_list, only: get_annotation_key => assoc_list_get_key
  use m_psml_assoc_list, only: get_annotation_value => assoc_list_get_value
  use m_psml_assoc_list, only: insert_annotation_pair => assoc_list_insert
  use m_psml_assoc_list, only: init_annotation => assoc_list_init
  use m_psml_assoc_list, only: reset_annotation => assoc_list_reset
  use m_psml_assoc_list, only: print_annotation => assoc_list_print
  use m_psml_assoc_list, only: EMPTY_ANNOTATION => EMPTY_ASSOC_LIST 

  use m_psml_external_interfaces, only: ps_set_error_handler => &
                                 set_die_routine
 
  ! Remove common names from namespace
  use m_psml_class_Grid, dummy_id => id, dummy_name => name

  ! Export precision of real numbers used
  
  integer, public, parameter :: ps_real_kind = selected_real_kind(10,100)

end module m_psml