Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!ub!ubvmsa.cc.buffalo.edu!v087mxgb From: v087mxgb@ubvmsa.cc.buffalo.edu (Shawn E Thompson) Newsgroups: comp.lang.fortran Subject: beyond the debate.....HELP!!! (and my opinions...) Message-ID: <48577@eerie.acsu.Buffalo.EDU> Date: 1 Dec 90 06:25:04 GMT Sender: news@acsu.Buffalo.EDU Reply-To: v087mxgb@ubvmsa.cc.buffalo.edu Organization: University at Buffalo Lines: 71 Nntp-Posting-Host: ubvmsa.cc.buffalo.edu News-Software: VAX/VMS VNEWS V1.3-4.4 Hi-ho all, thank you ALL for the overwhelming response I received in my previous posts....you were all VERY helpful..... I am in a little bind. I am trying to do the following and don't know if it is possible, please tell me ASAP; I have a main program and a subroutine (well much more than that, but this is a simplification). The main program runs some calc's and creates a matrix of numbers (say MxN). The subroutine needs one row at a time in array format (say Mx1). The subroutine cannot be restructured because of its impact on tons of other code. Short of rewriting the main prog., and common blocks don't offer an obvious answer..... can I send one column of a matrix into an array with a CALL statement, without passing the variables into a dummy array first (which is what I'll do as a last resort), sample code; PROGRAM MAIN REAL XMATRIX(10,20) . . . CALL SAMPLE(XMATRIX(???what goes here???) ) END SUBROUTINE SAMPLE(XARRAY) REAL XARRAY(20) . . . RETURN END THANK YOU IN ADVANCE!!!! *** MY OPINIONS *** (oops, capslocks) Yes, to answer a rhetorical question, there ARE people out here, in the REAL world who use and love Fortran - I'm just one. I wish someone would make a TURBO or QUICK style F77 compiler (like Quickbasic or TurboC)....then again, I haven't seen a new compiler in five years. Shawn E. Thompson "..my sig file was so long, I'm not even allowed a quote..." v087mxgb@ubvms.cc.buffalo.edu | set@autarch.acsu.buffalo.edu University @ Buffalo|Graduate School of Mechanical Engineering CAD Engineering|Leica, Inc.|PO Box 123|Buffalo, NY 14240-0123|(716)891-3375 Brought to you by Super Global Mega Corp .com