s/call adopen(/call adopen( mythid,\
     \&           /g
s/call adclose(/call adclose( mythid,\
     \&           /g
s/call adread(/call adread( mythid,\
     \&           /g
s/call adwrite(/call adwrite( mythid,\
     \&           /g
s/call adiopen(/call adopen( mythid,\
     \&           /g
s/call adiclose(/call adclose( mythid,\
     \&           /g
s/call adiread(/call adread_i( mythid,\
     \&           /g
s/call adiwrite(/call adwrite_i( mythid,\
     \&           /g
