Usage of mo_finish

finish() in mo_finish says that it writes out error message and stops program, but it seems that it only write message containing program name and description with options on unit identifiers, with regards to pF unit, not sure what its usage is. With this regard, test_mo_finish is removed.

  SUBROUTINE finish(name, text, unit)

    IMPLICIT NONE

    CHARACTER(len=*), INTENT(IN)           :: name
    CHARACTER(len=*), INTENT(IN), OPTIONAL :: text
    INTEGER,          INTENT(IN), OPTIONAL :: unit

    IF (PRESENT(unit)) THEN
       WRITE (unit,'(a)') separator

       IF (PRESENT(text)) THEN
          WRITE (unit,'(a,a,a)') name, ': ', text
       ELSE
          WRITE (unit,'(a)') name
       END IF

       WRITE (unit,'(a)') separator
    ELSE
       WRITE (*,'(a)') separator

       IF (PRESENT(text)) THEN
          WRITE (*,'(a,a,a)') name, ': ', text
       ELSE
          WRITE (*,'(a)') name
       END IF

       WRITE (*,'(a)') separator
    end if


  END SUBROUTINE finish