Kennt jemand, was das Postfix "d + 0" bedeutet in den Zuordnungen zu M1, M2 und M4 unten oder gibt es eine Ressource im Internet oder ein Buch, wo wird man diese Information sehr wahrscheinlich finden?Postfix 'd + 0' in Fortran echte wörtliche Ausdrücke
subroutine plot(t, x, p, q, nga, nt, wron,
& ngq, gq, ngaq1, ngaq2, gaq, rwh, iwh)
implicit none
integer*4 nga, nt, ngq, ngaq1, ngaq2, iwh(*)
real*8 t, x(*), p(*), q(*), wron(nga,*),
& gq(ngq,*), gaq(ngaq1,ngaq2,*), rwh(*)
real*8 M1, M2, M3, M4, mr, mst, h3, Tc
integer*8 iflag
c DISCRETIZE1(Tc, rwh, iwh)
M1 = 0.1362d+0
M2 = 0.09806d+0
M3 = M1 + M2
M4 = 0.236d+0
mr = M1*x(1) + M2*x(2) + M3*x(3) + M4*x(4)
mst = M1*q(1) + M2*q(2) + M4*q(3)
call mess3(t, x, h3, p, q, rwh, iwh, iflag)
write (10,100) t, x(1), x(2), x(3), x(4), Tc, h3, mr-mst
100 format(e20.10, 7(1x,e20.10))
end
@Deduplicator Warum entfernen Sie das 'real'-Tag? Und warum gibt es noch zwei vor kurzem geänderte Fortran-Fragen mit dem echten Tag, bei denen einige Edits innerhalb der Kulanzfrist widerrufen wurden? –
@Vla Ich weiß nicht, über die anderen beiden, und das könnte * zu früh gewesen sein. Hätte die Meta-Diskussion noch weiter gehen lassen ... – Deduplicator