!                              ** W A R N I N G **
!
!        This routine is not part of the Unified Model source code.
!        It merely acts as a dummy interface for deck PORTIO2A whose 
!        source code is in C.



Subroutine BUFFIN_SINGLE() 12
End Subroutine BUFFIN_SINGLE()


Subroutine BUFFOUT_SINGLE()  13
End Subroutine BUFFOUT_SINGLE() 


Subroutine BUFFIN8_SINGLE()
End Subroutine BUFFIN8_SINGLE()


Subroutine SETPOS_SINGLE() 11
End Subroutine SETPOS_SINGLE()


Subroutine OPEN_SINGLE() 4
End Subroutine OPEN_SINGLE()


Subroutine CLOSE_SINGLE() 6
End Subroutine CLOSE_SINGLE()


Subroutine DATE_TIME() 4
End Subroutine DATE_TIME()


Subroutine SHELL() 6
End Subroutine SHELL()


Subroutine BUFFO32_SINGLE()
End Subroutine BUFFO32()


Subroutine BUFFIN32_SINGLE()
End Subroutine BUFFIN32()


Subroutine BUFFOU8() 1
End Subroutine BUFFOU8()


Subroutine SETPOS8_SINGLE() 
End Subroutine SETPOS8_SINGLE() 


Subroutine SETPOS32() 3
End Subroutine SETPOS32()


Subroutine GETPOS32()
End Subroutine GETPOS32()


Subroutine GETPOS()
End Subroutine GETPOS()


Subroutine WORD_LENGTH() 1
End Subroutine WORD_LENGTH()


Subroutine GET_FILE() 55
End Subroutine GET_FILE()


Subroutine ABORT() 341
End Subroutine ABORT()


Subroutine FLUSH_BUFFER() 3
End Subroutine FLUSH_BUFFER()


Subroutine FORT_GET_ENV() 41
End Subroutine FORT_GET_ENV()


Subroutine CLOSE_ALL_FILES() 1
End Subroutine CLOSE_ALL_FILES()


Subroutine FLUSH_ALL_FILES()
End Subroutine FLUSH_ALL_FILES()


Subroutine SET_DUMPFILE_LENGTH() 20
End Subroutine SET_DUMPFILE_LENGTH()


Subroutine CLEAR_UNIT_BCAST_FLAG()
End Subroutine CLEAR_UNIT_BCAST_FLAG()


Subroutine SET_UNIT_BCAST_FLAG()
End Subroutine SET_UNIT_BCAST_FLAG()


Subroutine FIND_UNIT_BCAST_FLAG() 1
End Subroutine FIND_UNIT_BCAST_FLAG()


Subroutine IS_UNIT_OPEN()
End Subroutine IS_UNIT_OPEN()