subroutine c
print *,'this is c from library b'
call a
return
end
