pstreamWriteRecord: check pstreamptr->varlist (bug fix)

ChangeLog

 2010-03-15  Uwe Schulzweida  <Uwe.Schulzweida@zmaw.de>
 
+	* pstreamWriteRecord: check pstreamptr->varlist (bug fix) [report: Kevin Sieck]
 	* added operator fldcor to correlate two fields (test version)
 	
 2010-03-12  Uwe Schulzweida  <Uwe.Schulzweida@zmaw.de>

src/Cat.c

@@ -136,7 +136,7 @@ void *Cat(void *argument)
 	    {
 	      streamInqRecord(streamID1, &varID, &levelID);
 	      streamDefRecord(streamID2,  varID,  levelID);
-	  
+
 	      if ( lcopy )
 		{
 		  streamCopyRecord(streamID2, streamID1); 

src/pstream.c

@@ -938,7 +938,7 @@ const char *cdoComment(void)
   return (comment);
 }
 
-
+static
 void pstreamDefVarlist(PSTREAM *pstreamptr, int vlistID)
 {
   static char func[] = "pstreamDefVarlist";
@@ -1198,8 +1198,9 @@ void pstreamWriteRecord(int pstreamID, double *data, int nmiss)
       int varID = pstreamptr->varID;
       if ( cdoTimer ) timer_start(timer_write);
 
-      if ( pstreamptr->varlist[varID].check_datarange )
-	pstreamCheckDatarange(pstreamptr, varID, data, nmiss);
+      if ( pstreamptr->varlist )
+	if ( pstreamptr->varlist[varID].check_datarange )
+	  pstreamCheckDatarange(pstreamptr, varID, data, nmiss);
 
       streamWriteRecord(pstreamptr->fileID, data, nmiss);
       if ( cdoTimer ) timer_stop(timer_write);