Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in), | optional | :: | string |
subroutine text(string) character(len=*),intent(in),optional :: string if(present(string))then write(stdout,'(*(g0))') attr('<B><g><bo>'//trim(string),chars=80) else write(stdout,'(*(g0))') attr('<B><g><bo>',chars=80) endif end subroutine text