Skip to content
Snippets Groups Projects
Commit 4d435963 authored by Otmane Lahlou's avatar Otmane Lahlou
Browse files

BUG : avoid windows error for an unitialized used variable

parent 89995bfe
No related branches found
No related tags found
No related merge requests found
......@@ -83,7 +83,7 @@ Extern struct {
integer i__, j, k, l;
doublereal rorayl_fi__[181], wl;
integer ifi;
doublereal taer, nbmu, piza, tray, coeff, taerp, tamoy, romix, trayp,
doublereal taer, nbmu, piza, tray, coeff = 0., taerp, tamoy, romix, trayp,
rqmix, rumix, rolut[1025] /* was [25][41] */, ddifta, ddirta,
ddiftt, ddiftr, udifta;
extern /* Subroutine */ int atmref_(integer *, integer *, doublereal *,
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment