1 SUBROUTINE handle_command(outbuffer, buffer, buffer_length) BIND ( C ) 2 3 USE, INTRINSIC :: ISO_C_BINDING 4 USE RUN 5 IMPLICIT NONE 6 7 CHARACTER(KIND=C_CHAR, LEN=1), INTENT(IN) :: buffer(1024) 8 INTEGER(C_INT), INTENT(IN) :: buffer_length 9 CHARACTER(KIND=C_CHAR, LEN=1), INTENT(OUT) :: outbuffer(1024) 10 11 ! INTERACTIVE_MODE=.TRUE. 12 ! INTERUPT=.TRUE. 13 14 print *,"You said '",buffer(1:buffer_length),"' at TIME = ", TIME 15 16 ! WRITE(outbuffer,"(1(A))") "handled command." 17 18 ! WRITE(outchar,"(3(A),F10.5,1(A))")"You said '",buffer(1:buffer_length),"' at TIME = ", TIME, CHAR(0) 19 20 END SUBROUTINE handle_command 21