mds_w_log_0 Subroutine

private subroutine mds_w_log_0(name, value)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
logical :: value

Contents

Source Code

mds_w_log_0

Source Code

  subroutine mds_w_log_0(name,value)
    implicit none
    character(*), intent(in) :: name
    logical :: value ! intent?
# ifdef MDSPLUS
    logical :: status
    integer :: descr
    status = mdsput(name//char(0),"$",descr(IDTYPE_LONG,value,0),0)
    call checkmds(status,"error writing "//name)
    return
# endif
  end subroutine mds_w_log_0