すいません。つまらない問題なのですが、
複数ファイルに同一の結果を出力する場合どうすればよいのでしょうか。

open(10,file='A.dat',form='formatted')
open(11,file='B.dat',form='formatted')

write(10,101)int((t2-t1)/60),dble((t2-t1)-int((t2-t1)/60)*60)
write(11,101)int((t2-t1)/60),dble((t2-t1)-int((t2-t1)/60)*60)

みたいな表現をコンパクトにしたいのです。