this is a SUBROUTINE


You seem to be trying to CALL the SUBROUTINE with a GOTO

this is never going to be ok

it needs to be like this